From e7c7295c919d939c9b21adeecff89336318c6578 Mon Sep 17 00:00:00 2001 From: Jim Blandy Date: Mon, 24 May 1993 15:22:47 +0000 Subject: [PATCH] * fileio.c (Ffile_writable_p): Pass XSTRING (foo)->data to ro_fsys, not XSTRING (foo). --- src/fileio.c | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/fileio.c b/src/fileio.c index 8987142e2ce..da591b525b1 100644 --- a/src/fileio.c +++ b/src/fileio.c @@ -2112,7 +2112,7 @@ DEFUN ("file-writable-p", Ffile_writable_p, Sfile_writable_p, 1, 1, 0, if (access (XSTRING (abspath)->data, 0) >= 0) return ((access (XSTRING (abspath)->data, 2) >= 0 - && ! ro_fsys (XSTRING (abspath))) + && ! ro_fsys ((char *) XSTRING (abspath)->data)) ? Qt : Qnil); dir = Ffile_name_directory (abspath); #ifdef VMS @@ -2120,7 +2120,7 @@ DEFUN ("file-writable-p", Ffile_writable_p, Sfile_writable_p, 1, 1, 0, dir = Fdirectory_file_name (dir); #endif /* VMS */ return ((access (!NILP (dir) ? (char *) XSTRING (dir)->data : "", 2) >= 0 - && ! ro_fsys ((char *) XSTRING (dir))) + && ! ro_fsys ((char *) XSTRING (dir)->data)) ? Qt : Qnil); } -- 2.30.2